home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / dev / basic / ace24dist.lha / ace24.lha / prgs / BenchMarks / lines.b < prev    next >
Text File  |  1996-09-10  |  419b  |  29 lines
  1. '..time how long it takes to draw 10,000 random lines.
  2.  
  3. screen 1,640,200,2,2
  4.  
  5. palette 0,0,0,0
  6. palette 1,1,1,1
  7. palette 2,0,1,0
  8.  
  9. window 1,,(0,0)-(640,200),0,1
  10.  
  11. randomize timer
  12.  
  13. color 2
  14.  
  15. time0=timer
  16. for i%=1 to 10000
  17.   line (int(rnd*640!),int(rnd*200!))-(int(rnd*640!),int(rnd*200!))
  18. next
  19. time1=timer
  20.  
  21. color 1,0
  22. locate 2,1
  23. print "Time elapsed:";time1-time0;"seconds."
  24.  
  25. while inkey$="":wend
  26.  
  27. window close 1
  28. screen close 1
  29.